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QUBIC 


DECUS Program Library Write-up 


DECUS No. 8-261 


ABSTRACT 


’CUBIC' PLAYS 3 DIMENSIONAL TIC-TAC-TOfc ON AN OLDER -A CUBE. 
THE PROGRAM IS CONVERSATIONAL AND USES THE TELETYPE FOR ALL I/O. 
MOVES. ARE TYPED IN AS 3 COORDINATES* AND OUTPUTTED USING BOTH 
COORDINATES AND A TELETYPE PRINTOUT Of- THE PLAYING BOARD. THE 
STRATEGIES EMPLOYED IN PLAYING THE GAME HAVE BEEN FOUND TO 
HE EXTREME! Y GOOD. BUT THE PROGRAM CAN BE BEATEN. 

REQUIREMENTS 

\ 

A P Of - 8 > P0P-8/I* OR PDP-U/L WITH 4K OF MEMORY AND AN A SR-33 
TELETYPE. 

LOADING PROCEDURE 

LOAD WITH THE STANDARD BINARY LOADER. 

OPERATING PROCEDURE 

TURN THE TELETYPE TO LINE. SET SR=OPO0» PRESS ’LOAD ADDRESS’. 
THEN PRESS ’START'. 

THE COMPUTER THEN TYPES A SIGN-ON MESSAGE AND ASKS A SERIES OF 
QUESTIONS. THE QUESTIONS AND THEIR MEANINGS ARE LISTED IN TABLE I» 


TABLE I 


TELETYPE OUTPUT 


DESCRIPTION 


DO YOU WANT AN EXPLANATION OF HOW 
TO PLAY ? 


ANSWER ’YES’ OR ’NO'. IF THE 
’YES’ OPTION IS SELECTED. A 
BRIEF DESCRIPTION OF THE GAME 
WILL BE TYPEDo 


BOARD PRINTOUT ? 


ANSWER ’YES’ OR ’NO’. IF THE 
’YES’ OPTION IS SELECTED. THE 
PLAYING BOARD WILL BE PRINTED 
OUT AFTER EVERY COMPUTER MOVE 
IF ’NO’ IS TYPED. THE BOARD 


WILL BE PRINTED ONLY AFTER A 
WIN OR LOSS’ (SEE APPENDIX A=> 


SHALL I GO FIRST ? 


ANSWER ’YES’ OR 'NO'. IF 'YES 0 
IS TYPED. THE COMPUTER WILL MAKE 
THE FIRST MOVE. OTHERWISE. YOU 
WILL GO FIRST. 












YOUR MOVE IS 


HOW ABOUT ANOTHER GAME ? 


INPUT YOUR MOVE AS 3 COORDINATES 
FROM 1 TO 4 INCLUSIVE. TYPE IN 
THE ORDER ROW* COLUMN* PLANE. 
(THE TOP ROW AND LEFTMOST COLUMN 
OF THE TOP PLANE WOULD BE TYPED 
1 * 1 * 1 ») 

TYPED AFTER A WIN* LOSS* OR TIE. 
ANSWERING ’YES’ WILL RESTART 
THE PROGRAM* AND TYPING 'NO* 

WILL HALT IT WITH PC=0200* 


TYPING ERROR RECOVERY 

TYPING ANSWERS OTHER THAN THOSE BEGINNING WITH *Y' OR *N * 

WILL CAUSE AN ERROR MESSAGE TO BE TYPED AND THE QUESTION ASHED 

AGAIN. 

IF ANY CHARACTERS OTHER THAN 1 THROUGH 4 ARE TYPED FOR MOVE INPUT* 
OR IF THE SPECIFIED SQUARE IS ALREADY OCCUPIED* AN ILLEGAL MOVE 
MESSAGE WILL BE PRINTED AND THE MOVE ASKED FOR AGAIN. 

TYPING A BACK ARROW CSHIFT/O) BEFORE TYPING THE LAST COORDINATE 
OF AN INPUTTED MOVE DELETES THAT MOVE AND ASKS FOR A NEW ONE. 


OUTPUT 

AFTER THE INPUT OF EVERY USER MOVE* THE COMPUTER DETERMINES ITS 
MOVE AND OUTPUTS IT BY TYPING ’I MOVE* FOLLOWED BY THREE COORDINATES 
OF THE SAME FORM AS THOSE USED ON INPUT. WHEN THE COMPUTER WINS* 

IT TYPES ' I WIN ON* FOLLOWED BY THE 3 COORDINATES OF EACH Of 1 THE 4 
SQUARES ON THE WINNING PATH. IF THE HUMAN OPPONENT WINS* THE COMPUTER 
TYPES ’YOU WIN ON' FOLLOWED BY A SET OF SIMILAR COORDINATES. A TIE 
SIMPLY CAUSES A MESSAGE INDICATING A TIE TO BE TYPED OUT. IN ALL 
CASES EXCEPT A TIE* THE PLAYING BOARD IS PRINTED OUT AFTER THE MESSAGE- 

(SEE APPENDIX A.) 


CONTROL OPTIONS 

WHENEVER THE PROGRAM IS IN AN INPUT WAITING LOOP* TYPING CERTAIN 
CONTROL CHARACTERS WILL CAUSE BRANCHING TO OTHER PARTS OF THE PROGRAM 
THESE CHARACTERS ARE LISTED IN TABLE II. 


TABLE II 


CHARACTER 


PROGRAM ACTION 


CONTROL/N 


INTERRUPTS THE CURRENT GAME AND 
STARTS A NEW ONE* 
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CONTROL/S 


TYPES THE SIGN-OFF MESSAGE ANO 
HALTS THE COMPUTER WITH PC=020Q 


THE GAME OF ORDER-4 30 TIC-TAC-TOE 

THREE DIMENSIONAL TIC-TAC-TOE IS SIMILAR TO THE MORE FAMILIAR 
PLANAR TIC-TAC-TOEo THE OBJECT STILL IS TO GET 4 IN A ROW* BUT A 
CUBE PROVIDES MANY ADDED COMPLEXITIES AND WINNING PATHS* IN ADD¬ 
ITION TO STANDARD PLANAR CONFIGURATIONS IN ANY OF THE HORIZONTAL 
OR VERTICAL PLANES* DIAGONALS CAN BE MADE FROM OPPOSITE CORNERS OF 
THE CUBE. HENCE A COMPLEX THREE DIMENSIONAL NETWORK OF SQUARES 
MAKES THE TRIVIAL GAME OF TIC~TAC-TOE RATHER CHALLENGING* 

THE ALGORITHM USED TO COMPUTE MOVES IN THIS PROGRAM WAS 
DEVELOPED BY ROBERT K* LOUDEN IN HIS BOOK* "PROGRAMMING THE IBM 1130 
AND 1800*" A BRIEF SUMMARY OF THIS ALGORITHM FOLLOWS* 

IN MEMORY* THE PLAYING BOARD IS REPRESENTED BY A 64-LOCATION 
ARRAY* THE FOLLOWING CONVENTIONS ARE USED TO INDICATE THE STATUS 
OF EACH SQUARE: 0 SIGNIFIES AN EMPTY SQUARE* 1 INDICATES OCCUPATION 
BY THE HUMAN OPPONENT* AND 5 MEANS THE SQUARE IS OCCUPIED BY THE 
COMPUTER* THIS SYSTEM ALLOWS US TO DETERMINE STRATEGIC INFORMATION 
BY SUMMING UP THE 76 POSSIBLE WINNING PATHS: A SUM OF 3 INDICATES 
THE OPPOSITION HAS THREE IN A ROW AND MUST BE BLOCKED* A SUM OF 15 
SHOWS THE COMPUTER HAS THREE IN A ROW AND WILL WIN ON THE NEXT MOVE* 
AND SO FORTH. A SYSTEM INVOLVING 3 WANTED SUM VALUES* LABELED TEST1 * 
TEST2* AND TESTS* WHICH INCORPORATES THE MOST IMPORTANT STRATEGIC 
SITUATIONS* MAY BE SUMMARIZED AS FOLLOWS: 

FIND A BLANK SQUARE Ml ON A ROW WITH A SUM OF TEST1* SUCH 

THAT Ml IS ALSO ON A ROW OF SUM TEST2* WHICH CONTAINS A BLANK 

SQUARE M2 WHICH ALSO LIES ON A ROW OF SUM TEST3* 

Ml IS THE BEST MOVE* AND M2 IS AN ALTERNATE* OFTEN ALL THREE 
TEST NUMBERS ARE NOT NEEDED TO ESTABLISH A SITUATION; HERE* A 
POSITIVE VALUE FOR ATEST NUMBER TERMINATES THE SEARCH* THIS 
ALGORITHM REQUIRES AN ARRAY CONTAINING THE VARIOUS SETS OF TEST 
NUMBERS IN ORDER OF IMPORTANCE. A 64-LOCATION MOVE ARRAY* A 76 
LOCATION SUM ARRAY TO STORE THE SUMS OF EACH OF THE WINNING PATHS* AND 
A 76*4 OR 304 LOCATION ROW ARRAY TO HOLD THE SUBSCRIPTS OF THE 
4 SQUARES ON EACH WINNING PATH. 

THE MAIN PROGRAM INPUTS MOVES AND CALLS A SUBROUTINE* REFERRED 
TO AS °STRAT% TO DETERMINE THE COMPUTER’S MOVE ACCORDING TO THE 
GIVEN ALGORITHM* IF NONE OF THE TEST SITUATIONS ARE FOUND* AS IS 
OFTEN THE CASE EARLY IN THE GAME* A MOVE IS TAKEN FROM THE WAITING 
LIST* AN ARRAY CONTAINING THE SUBSCRIPTS OF SEVERAL OF THE MOST 
IMPORTANT SQUARES* RUNNING OUT OF WAITING MOVES RESULTS IN A TIE* 

IF A WIN OR LOSS IS DETECTED* Ml IS A SUBSCRIPT TO THE ROW 

ARRAY* WHICH ALLOWS THE PROGRAM TO GET THE SUBSCRIPTS OF THE 4 SQUARES 

ON THE WINNING ROW* 

FOR A MORE DETAILED DESCRIPTION OF THE ALGORITHM* PLEASE SEE 
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REFERENCE 1 


THE MAIN PROGRAM CALLS SEVERAL SUBROUTINES TO DO A MAJOR 
PORTION OF THE WORK. SUBROUTINES ARE LISTED IN TABLE III* 

TABLE III 


SUBROUTINE POINTER OR CALL 
MESAGE 


YESNO 


CODE 

CONVRT 

STRAT 

BOARD 


DESCRIPTION 


PRINTS OUT TEXT INFORMATION 
PACKED TWO CHARACTERS TO THE 
WORD. THE LOCATION FOLLOWING 
THE CALL CONTAINS THE STARTING 
ADDRESS OF THE TEXT BLOCK. 

THE STRING IS TERMINATED BY 
A 00* AND THE ROUTINE USES 
THE CODES 43 AND 45 FOR CR AND 
LF. 


READS CHARACTERS FROM THE KEY¬ 
BOARD UNTIL A CR IS TYPED. IF 
THE FIRST CHARACTER TYPED IS 
A 'Y'* RETURN TO CALL+2* IF 
AN 'N'* RETURN TO CALL+1 * AND 
IF NEITHER* TYPE AN ERROR 
MESSAGE AND ASK THE QUESTION 
AGAIN. 

CHANGE ROW* COLUMN* PLANE 
COORDINATES TO 1-64 ROW ARRAY 
SUBSCRIPTS. LEAVE THE RESULT 
IN THE AC. 

CONVERT 1-64 SUBSCRIPT IN 
THE AC TO ROW* COLUMN* PLANE 
COORDINATES. LEAVE THE RESULT 
IN ’ROW'* 'COLUMN'* AND 'PLANE'. 

DETERMINE THE COMPUTER'S MOVE. 
LEAVE AS A MOVE ARRAY SUBSCRIPT 
IN 'Ml'. IF A WIN OR LOSS IS 
DETECTED* Ml IS A ROW SUBSCRIPT. 

PRINTS PLAYING BOARD (SEE 
APPENDIX A.) 


'NEW INSTRUCTION' CALLS 

TESTAC 

READC 


SKIP IF 260<AC<265. 

SINGLE CHARACTER READ FROM 

KEYBOARD INTO AC. 

4 ^ 

SINGLE CHARACTER PRINT AND CLEAR 


PRINTC 







PROGRAM DESCRIPTION 


PAGE ZERO 


LOCATIONS 

USE 

10-17 

AUTO-INDEX POINTERS. 

26-37 

NUMERICAL CONSTANTS- 

40-45 

STORAGE FOR THE 3 COORDINATES* 
THE CODED SUBSCRIPT OF THE MOVE 
ARRAY (’NEXT 9 )* A TEMPORARY 
STORAGE LOCATION* AND A FLAG TO 
RECORD BORO PRINTOUT STATUS- 

46-54 

VARIABLES USED BY ’STRAT*. 

55-56 

WAIT LIST CONTROLLERS- 

57-66 

COUNTERS FOR SUBROUTINE *STRAT’• 

67-73 

CONSTANTS FOR POINTER INITIAL¬ 
IZATION. 

74-101 

POINTERS TO SUBROUTINES (REGULAR 
CALL)• 

162-104 

POINTERS TO SUBROUTINES <’NEW 
INSTRUCTION’ CALL). 

105-110 

MISCELLANEOUS POINTERS. 

1 75-177 

RUN TERMINATION. 


MAIN FROGPAM 


200-214 

PRINT OUT SIGN-ON* ASK INITIAL 
QUESTIONS* AND SET UP 'FLAG 9 

FOR BOARD PRINTOUT. 

215-234 

SET UP WAIT LIST CONTROLS 

AND CLEAR OUT MOVE ARRAY. 

235-250 

READ IN USER’S MOVE AND STORE 

IN ’ROW 9 * ’COLUMN 9 * AND ’PLANE 9 » 

251-302 

CHECK MOVE FOR LEGALITY* AND 
STORE A 1 IN THE INDICATED MOVE 
ARRAY LOCATION. 
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303-321 

CALL • STRATA CHECK IF A SITUAT¬ 
ION WAS FOUND* AND IF NOT* 
SELECT A WAITING MOVE. 

322-324 

PRINT TIE GAME MESSAGE. 

325-334 

TEST FOR WIN OR LOSS. 

335-351 

PUT A 5 IN THE COMPUTER’S 

MOVE LOCATION* PRINT THE MOVE* 
AND* IF FLAG=0* PRINT THE BOARD 

352-354 

PRINT ILLEGAL MOVE MESSAGE. 

i 

355-357 

PRINT WIN MESSAGE. 

360-361' 

PRINT LOSS MESSAGE. 

362-365 

PRINT WINNING ROW AND BOARD. 

400-405 

ASK ABOUT ANOTHER GAME. 

406-41 3 

ONE-CHARACTER PRINT. 

414-443 

ONE-CHARACTER READ AND TEST 

FOR CONTROL CHARACTERS. 

444-455 

’TESTAC* ROUTINE. 

456-470 

CHANGE ROW* COLUMN* PLANE TO 
MOVE SUBSCRIPT. 

471-536 

CONVERT SUBSCRIPT <1-64) TO 

ROW* COLUMN* PLANE. 

537-572 

INITALIZE ’STRAT’* SUM UP ALL 
WINNING PATHS. 

600-770 

STRAT’S 8 NESTED LOOPS* 

777-1023 

PROCESS RETURNS FROM ’STRAT'. 

1024-1111 

BOARD PRINTOUT ROUTINE. 

1200-1253 

MESSAGE PRINTOUT ROUTINE 
< FROM DIGITAL-8-18-U-SYM). 

1254-1 306 

ANSWER PROCESSING ROUTINE. 
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1307-1327 PRINT OUT COORDINATES OF WINNING 

ROW AND SET THE MOVE ARRAY 
LOCATIONS FOR THAT ROW = -1 
AS A FLAG FOR THE BOARD PRINT¬ 
OUT ROUTINE® 


1330-1427 


MOVE ARRAY® 


1430-1543 


SUM ARRAY® 


1544-1567 
1570-2247 
2250-2316 


WAIT LIST® 
ROW ARRAY® 
TEST ARRAY 


2317-3143 


TEXT MESSAGES. 

(NOTE: THIS SEGMENT WAS CODED 
INTO OCTAL BY A SMALL EDITING 
ROUTINE.) 
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APPENDIX A - BOARD PRINTOUT 

AT THE END OF EVERY GAME AND, IF DESIRED, AFTER EVERY MOVE MADE 
BY THE COMPUTER, THE PLAYING CUBE IS PRINTED ON THE TELETYPE. 

THE 3 DIMENSIONAL BOARD IS DISPLAYED BY PRINTING ITS FOUR HORIZ¬ 
ONTAL PLANES IN THE ORDER OF TOPMOST TO BOTTOM. EACH PLANE IS 
PRINTED WITH ROW 1, COLUMN 1 AT THE UPPER LEFT-HAND CORNER. 

BLANK SQUARES ARB OBVIOUSLY NOT OCCUPIED, AN 'O’, SIGNIFIES 
OCCUPATION BY THE HUMAN OPPONENT, AN 'X* INDICATES OCCUPATION 
BY THE COMPUTER, AND A IS A SQUARE ON THE WINNING ROW AT THE 

END OF A GAME. THE 'BOARD PRINTOUT* OPTION IS PROVIDED TO AVOID 
THE LONG PRINTOUT CYCLE AFTER EVERY EXCHANGE OF MOVES, BUT 
SUPPRESSING THIS ACTION NECESSITATES RECORDING MOVES WITH SOME 
OTHER VISUAL AID. MOVES MAY BE RECORDED ON A COMMERCIAL THREE 
DIMENSIONAL TOY BOARD OR ON A GRID SIMILAR TO THE ONE USED IN 
THE BOARD PRINTOUT PREPARED AND DUPLICATED BEFOREHAND. 
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APPENDIX B - SAMPLE GAME 
THIS IS QUBIC* 3D TIC-TAOTOE 

DO YOU WANT AN EXPLANATION OF HOW TO PLAY ? YES 

THIS PROGRAM PLAYS TIC-TAC-TOE ON A 4 BY 4 BY 4 CUBE. 

THE OBJECT IS TO GET 4 SQUARES IN A ROW* EITHER VERTICALLY* 

DIAGONALLY OR HORIZONTALLY THROUGH THE CUBE. INPUT MOVES AS ROW* 
COLUMN* PLANE. IF YOU DO NOT WANT THE BOARD PRINTED OUT AT EVERY STEP* 
ANSWER 'NO* TO THE QUESTION ’BOARD PRINTOUT ?*• OTHERWISE* 

THE BOARD IS PRINTED WITH YOU AS ’O’* THE COMPUTER 
AS *X’* AND THE WINNING ROW AS • 


BOARD PRINTOUT ? NO 

SHALL I GO FIRST ? FLICK LIVES 

PLEASE ANSWER ’YES’ OR ’NO’. 

SHALL I GO FIRST ? NO 

YOUR MOVE IS 9*9*9 

THAT MOVE IS ILLEGAL. TRY AGAIN. 

YOUR MOVE IS P* Q* *• 

YOUR MOVE IS 2*2*2 
I MOVE 3*3*3 
YOUR MOVE IS 3*3*2 
I MOVE 3*2*2 
YOUR MOVE IS 3*1*1 
I MOVE 2*3*3 
YOUR MOVE IS 1*3*3 
I MOVE 2*2*3 
YOUR MOVE IS 1*1*3 


I MOVE 1*1*2 
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YOUR HOVE IS 3*4,4 


I MOVE 2*3*2 
YOUR MOVE IS 
I MOVE 1,4*3 
YOUR MOVE IS 
YOUR MOVE IS 
I MOVE 3*1*4 
YOUR MOVE IS 
I MOVE 4*1*4 
YOUR MOVE IS 
I MOVE 2*4*4 
YOUR MOVE IS 
I MOVE 2*1*3 
YOUR MOVE IS 


1* 4*2 

2 * - 
3*2*3 

2*3*4 

2* 1*4 

3*1*3 

2* 4* 3 


I MOVE 4*1*1 









YOUR MOVE IS 1*1* A 


I WIN ON 3*2*2 2*3*3 \ * A* A A* l * l 


. 0 • 



• O* • 0 • X • 


• X.X.’fc.O* 


• O.O.X. 


. o • • . ♦ . 


. o . . 0 • X . 


. X . . . 0 . 


. X . 


HOW ABOUT ANOTHER GAME ? NO THANKSi 
THANK YOU FOR AN ENJOYABLE GAME. 
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APPENDIX C - PROGRAM LISTING 

/3D TIC-TAC-TOE# BY TIM YEAGER *** 


/PAGE 0 




/INDEX 

REGISTERS 



♦ 10 


0010 

0000 

XR1 # 

0 

001 1 

0000 

XR2# 

0 

0012 

0000 

XR3# 

0 

0013 

0000 

XR4# 

0 

0014 

0000 

XR5# 

0 

0015 

0000 

XR6# 

0 

0016 

0000 

XR7# 

0 

0017 

0000 

XR8# 

0 



/NUMERICAL CONSTANTS 

0020 

7777 

KINUS1# 

-1 

0021 

7775 

MINUS3# 

-3 

0022 

7774 

M4# 

-4 

0023 

7773 

M5# 

-5 

0024 

7754 

M20# 

'-24 

0025 

7763 

Ml 3# 

-15 

0026 

7664 

M7 6# 

-114 

0027 

7700 

M64# 

-100 

0030 

7520 

M2 60# 

-260 

0031 

7563 

MCR# 

-215 

0032 

0005 

P5# 

5 

0033 

01 1 4 

P76# 

1 1 4 

0034 

0261 

K261 # 

261 

0035 

0212 

LF » 

212 

0036 

0240 

SPACED 

240 

0037 

0254 

COMMA# 

254 



/VARIABLE STORAGE 

00 46 

0000 

ROW# 

0 

0041 

0000 

COLUMN# 

0 

00 42 

0000 

PLANE. 

0 

0043 

0000 

NEXT# 

0 

0044 

0000 

SAVE. 

0 

00 45 

0000 

FLAG# 

0 



/USED BY 'STRAT' 

0046 

0000 

XSUM# 

0 

00 47 

0000 

TEST!# 

0 

00 50 

0000 

TEST2. 

0 

0051 

0000 

TEST3. 

0 

0052 

0000 

Ml # 

0 








0053 

0000 

M2* 0 

0054 

0000 

M3* 0 

0055 

0000 

WA I TP* 0 

0056 

0000 

WAITCT* 0 ' 

00 57 

0000 

COUNT 1* 0 

0060 

0000 

COUNTS* 0 

0061 

0000 

C0UNT3* 0 

00 62 

0000 

COUNT 4* 0 

0063 

0000 

C0UNT5* 0 

0064 

0000 

C0UNT6* 0 

0065 

0000 

COUNT7* 0 

0066 

0000 

COUNTS* 0 



/ADDRESS INITIALIZATION *** 

0067 

1 32 7 

MOVEP* MOVE-1 

0070 

1 544 

WA1TL* WAITLST 

0071 

1 427 

SUMP* SUM-1 

0072 

1 567 

ROWP* ROWLST-1 

0073 

2247 

TESTP* TEST-1 



/SUBROUTINE POINTERS 

0074 

1254 

YESNO* XYESNO 

0075 

1200 

MESAGE* PRNTXT 

0076 

0471 

CONVRT* XCNVRT 

0077 

0 456 

CODE* XCODE 

0100 

1024 

BOARD* CUBE 

0101 

0537 

STRAT* STRTG 


0102 

0444 

T£STAC=JMS I • i 

XTSTAC 

0103 

041 4 

READC=JMS I • i 

XREADC 

0104 

0406 

PR INTC=JMS I • * 

XPRNTC 



/GENERAL POINTERS 

0105 

0 400 

ENDGAM, TRYAGN 


0106 

1002 

RETRN1* RTRN01 


0107 

1012 

RETRN2* RTRN02 


0110 

101 4 

RETRN3* RTRN03 




*1 75 


01 75 

4475 

STPROG* JMS I MESAGE 

01 76 

30 7 6 

TEXT16 


0177 

7 402 

HLT 



PAUSE 
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/MAIN PROGRAM *** 


0200 

6032 


KCC 

0201 

6046 


TLS 

0202 

4475 


JMS I MESAGE 

0203 

231 7 


TEXT01 

0204 

4474 


JMS I YESNO 

0205 

5210 


JMP .+3 

0206 

4475 


JMS I MESAGE 

0207 

2367 


TEXT03 

0210 

4475 


JMS I MESAGE 

021 1 

3131 


TEXT17 

0212 

4474 


JMS I YESNO 

0213 

7040 


CMA 

021 4 

30 45 


DCA FLAG 

021 5 

1070 

SETUP* 

TAD WAITL 

0216 

3055 


DCA WAITP 

0217 

1024 


TAD M20 

0220 

3056 


DCA WAITCT 

0221 

1027 


TAD M64 

0222 

.3057 


DCA COUNT1 

0223 

1067 


TAD MOVEP 

0224 

3010 


DCA XR1 

0225 

3410 


DCA I XR1 

0226 

2057 


ISZ COUNT1 

0227 

5225 


JMP .-2 

0230 

4475 


JMS I MESAGE 

0231 

2704 


TEXT04 

0232 

4474 


JMS I YESNO 

0233 

7410 


SKP 

0234 

5303 


JMP DECIDE 



/GET OPPONENT’S MOVE 

0235 

4475 

GETMV* 

JMS I MESAGE 

0236 

2720 


TEXT05 

0237 

4503 


REA DC 

0240 

3040 


DCA ROW 

0241 

1037 


TAD COMMA 

0242 

4504 


PRINTC 

0243 

4503 


READC 

0244 

3041 


DCA COLUMN 

0245 

1037 


TAD COMMA 

0246 

450 4 


PRINTC 

0247 

4503 


READC 

0250 

3042 


DCA PLANE 



/CHECK 

FOR LEGALITY 

0251 

10 40 


TAD ROW 

0252 

4502 


TESTAC 
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0253 

5352 

JMP ILLEGL 

0254 

1041 

TAD COLUMN 

0255 

4502 

TESTAC 

0256 

5352 

JMP ILLEGL 

0257 

10 42 

TAD PLANE 

0260 

4502 

TESTAC 

0261 

5352 

JMP ILLEGL 

0262 

10 40 

TAD ROW 

0263 

1030 

TAD M260 

0264 

3040 

DCA ROW 

0265 

1041 

TAD COLUMN 

0266 

1030 

TAD M260 

0267 

3041 

DCA COLUMN 

0270 

1042 

TAD PLANE 

0271 

1030 

TAD M260 

0272 

3042 

DCA PLANE 

0273 

4477 

JMS I CODE 

0274 

1067 

TAD MOVEP 

0275 

3043 

DCA NEXT 

0276 

1 443 

TAD I NEXT 

0277 

7 640 

SZA CLA 

0300 

5352 

JMP ILLEGL 

0301 

7001 

I AC 

0302 

3443 

DCA I NEXT 

/MAKE COMPUTER’S MOVE 

0303 

4501 

DECIDE* JMS I STRAT 

0304 

1052 

TAD Ml 

0305 

7640 

SZA CLA 

030 6 

5325 

JMP SITFND 

0307 

1 455 

TAD I WAITP 

0310 

30 52 

DCA Ml 

031 1 

1052 

TAD Ml 

0 312 

1067 

TAD MOVEP 

031 3 

3044 

DCA SAVE 

031 4 

1 444 

TAD I SAVE 

031 5 

7650 

SNA CLA 

031 6 

5340 

JMP COMOVE 

031 7 

2055 

I SZ WAI TP 

0320 

2056 

ISZ WAITCT 

0321 

5307 

JMP .-12 

/TIE GAME *** ' 

0322 

4475 

JMS I MESAGE 

0323 

2763 

TEXT08 

0324 

5505 

JMP I ENDGAM 

/TEST FOR WIN OR LOSE 

0325 

7240 

SITFND* CLA CMA 

0326 

1054 

TAD M3 

0327 

7 650 

SNA CLA 







0330 

5360 


JMP WELOSE 

0331 

7344 


CLA CLL CMA RmL 

0332 

1054 


TAD M3 

0333 

7 650 


SNA CLA 

0334 

5355 


JMP WEWON 



/NORMAL 

MOVE *** 

0335 

1067 


TAD MOVEP 

0336 

1052 


TAD Ml 

0337 

3044 


DCA SAVE 

0340 

1032 

COMOVE* 

TAD P5 

0341 

3444 


DCA I SAVE 

0342 

4475 


JMS I MESAGE 

0343 

2755 


TEXT0 7 

0344 

10 52 


TAD Ml 

0345 

4476 


JMS I CONVRT 

0346 

1045 


TAD FLAG 

0347 

7700 


SMA CLA 

0350 

4500 


JMS I BOARD 

0351 

5235 


JMP GETMV 

0352 

4475 

1LLEGL, 

JMS I MESAGE 

0353 

2731 


TEXT06 

0354 

5235 


JMP GETMV 

0355 

4475 

WEWON, 

JMS I MESAGE 

0356 

3010 


TEXT10 

0357 

5362 


JMP .+3 

0360 

4475 

WELOSE, 

JMS I MESAGE 

0361 

3000 


TEXTO9 



/PRINT 

OUT WINNING ROW 

0362 

4765 


JMS I WINROW 

6363 

4500 


JMS I BOARD 

0364 

550 5 


JMP I ENDGAME 

0365 

1 307 

WIN ROW, 

XWNROW 




* 400 

0400 

4475 

TRYAGN, 

JMS I MESAGE 

0 401 

3017 


TEXT1 3 

0402 

4474 


JMS I YESNO 

0403 

51 75 


JMP STPROG 

0 40 4 

5605 


JMP I »+l 

0405 

0215 


SETUP 
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* 

PAUSE 

/SUBROUTINES Cl) 


0 40 6 

0000 

XPRNTC* 

0 

040 7 

6041 


TSF 

0410 

5207 


JNP .-1 

041 1 

6046 


TLS 

0412 

7200 


CLA 

041 3 

5606 


JMP I XPRNTC 

041 4 

0000 

XREADC* 

0 

041 5 

6031 


KSF 

041 6 

521 5 


JMP .-1 

041 7 

6036 


KRB 

0 420 

60 46 


TLS 

0421 

30 44 


DCA SAVE 

0 422 

1044 


TAD SAVE 

0423 

1240 


TAD MNCODE 

0424 

7650 


SNA CLA 

0 425 

5505 


JMP I ENDGAME 

0426 

1044 


TAD SAVE 

0427 

1241 


TAD MARROW 

0430 

7650 


SNA CLA 

0431 

5643 


JMP I LASTMV 

0 432 

1044 


TAD SAVE 

0433 

1242 


TAD MSCODE 

0434 

7650 


SNA CLA 

0435 

51 75 


JMP STPROG 

0 436 

1044 


TAD SAVE 

0437 

561 4 


JMP I XREADC 

0 440 

7562 

MNCODE* 

-21 6 

0441 

7441 

MARROW* 

-337 

0442 

7555 

MSCODE* 

-223 

0443 

0235 

LA STM V, 

GETMV 

/SKIP IF 260<AC<265 

0444 

0000 

XTSTAC* 

0 

0445 

1030 


TAD M260 

0446 

7550 


SPA SNA 

0447 

5254 


JMP XRTRN 

0 450 

1023 


TAD M5 

0451 

7700 


SMA CLA 

0452 

5254 


JMP XRTRN 

0453 

2244 


ISZ XTSTAC 

0454 

7200 

XRTRN* 

CLA 

0455 

5644 


JMP I XTSTAC 

/CHANGE ROW* COLUMN* PLANE TO 1-64 

0456 

0000 

XCODE* 

0 18 

0457 

72 40 


CLA CMA 

0460 

10 42 


TAD PLANE 


# 








0461 

7106 

CLL 

RTL 

0462 

3044 

DCA 

SAVE 

0463 

7240 

CLA 

CMA 

0464 

1041 

TAD 

COLUMN 

0465 

1044 

TAD 

SAVE 

0466 

7106 

CLL 

RTL 

0467 

1040 

TAD 

ROW 

0470 

5656 

JMP 

I XCODE 


/CONVERT MOVE CODE TO ROW, COLUMN,PLANE 


0471 

0000 

0472 

1020 

0473 

3044 

0474 

1044 

0475 

7110 

0476 

71 10 

0477 

7110 

0500 

7110 

0501 

30 42 

0502 

10 42 

0503 

7106 

0504 

.7006 

0505 

7041 

0506 

1044 

0507 

71 10 

0510 

7110 

051 1 

3041 

0512 

1042 

0513 

7106 

051 4 

1041 

051 5 

7006 

051 6 

7041 

051 7 

1044 

0520 

3040 

0 521 

1040 

0 522 

1034 

0523 

450 4 

0524 

1037 

0525 

4504 

0526 

1041 

0527 

1034 

0530 

4504 

0 531 

1037 

0532 

4504 

0 533 

10 42 

0534 

1034 

0535 

4504 

0536 

5671 


MINUS1 
DCA SAVE 
TAD SAVE 
CLL RAR 
CLL RAR 
CLL RAR 
CLL RAR 
DCA PLANE 
TAD PLANE 
CLL RTL 
RTL 
CIA 

TAD SAVE 
CLL RAR 
CLL RAR 
DCA COLUMN 
TAD PLANE 
CLL RTL 
TAD COLUMN 
RTL 
CIA 

TAD SAVE 
DCA ROW 
TAD ROW 
TAD K261 
PRINTC 
TAD COMMA 
PRINTC 
TAD COLUMN 
TAD K261 
PRINTC 
TAD COMMA 
PRINTC 
TAD PLANE 
TAD K261 
PRINTC 

JMP I XCNVRT 


XCNVRT, 0 

TAD 



PAUSE 


/SUBROUTINE STRAT 
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0537 

0000 

STRTG* 

0 

0540 

1071 


TAD SUMP 

0541 

3010 


DCA XR1 

0542 

1072 


TAD ROWP 

0543 

3011 


DCA XR2 

0544 

1026 


TAD M76 

0545 

3057 


DCA COUNT1 

0546 

3046 

SUMLOP* 

DCA XSUM 

0547 

1022 


TAD M4 

0550 

30 60 


DCA C0UNT2 

0551 

1 41 1 


TAD I XR2 

0552 

3044 


DCA SAVE 

0553 

1046 


TAD XSUM 

0554 

1 444 


TAD I SAVE 

0555 

3046 


DCA XSUM 

0556 

2060 


ISZ C0UNT2 

0557 

5351 


JMP .-6 

0560 

1046 


TAD XSUM 

0561 

3410 


DCA I XR1 

0562 

2057 


ISZ COUNT1 

0563 

5346 


JMP SUMLOP 




/SET UP OUTSIDE LOOP COUNTR 

0564 

1025 


TAD Ml 3 

0565 

3057 


DCA COUNT1 

0566 

1073 


TAD TESTP 

0567 

3010 


DCA XR1 

0570 

3054 


DCA M3 

0571 

5772 


JMP I .+1 

0 572 

0600 


SCAN01 




/NESTED LOOPS 




* 600 




0 600 

2054 

SCAN01 

> 1SZ 

M3 


0 601 

1 410 


TAD 

I XR1 


0 602 

3047 


DCA 

TEST 1 


• 603 

1 410 


TAD 

I XR1 


0 60 4 

3050 


DCA 

TEST2 


0605 

1 410 


TAD 

I XR1 


0 60 6 

3051 


DCA 

TEST3 




/SKIP 

IF TEST NO. > 0 


0 60 7 

1047 


TAD 

TEST1 


0610 

7 7 40 


SNA 

SZA CLA 


061 1 

5366 


JMP 

DON£01 




/FIND 

A ROW 

WITH A SUM 

OF TEST1 

0612 

1071 


TAD 

SUMP 

20 

061 3 

301 1 


DCA 

XR2 

061 4 

1026 


TAD 

M 76 








061 5 

3060 


DCA 

C0UNT2 

061 6 

1 41 1 

SCAN02> 

TAD 

I XR2 

061 7 

1047 


TAD 

TEST1 

0 620 

7640 


SZA 

CLA 

0 621 

5364 


JMP 

DON E02 

0622 

7344 


CLA 

CLL CMA RAL 

0623 

1054 


TAD 

M3 

0624 

7750 


SPA 

SNA CLA 

0625 

5506 


JMP 

I RETRN1 



/FIND A 

BLANK SQUARE Ml ON THE 

0626 

1033 


TAD 

P 76 

0 627 

1060 


TAD 

C0UNT2 

0 630 

7106 


CLL 

RTL 

0631 

10 72 


TAD 

ROWP 

0632 

3012 


DCA 

XR3 

0633 

1022 


TAD 

M4 

0 634 

3061 


DCA 

C0UNT3 

0635 

1 412 

SCANQ 3> 

TAD 

I XR3 

0636 

30 52 


DCA 

Ml 

0637 

1 452 


TAD 

I Ml 

0 640 

7640 


SZA 

CLA 

0641 

5362 


JMP 

DON£63 

0 642 

1050 


TAD 

TEST2 

0643 

7 7 40 


SMA 

SZA CLA 

0644 

5507 


JMP 

I RETRN2 



/FIND A 

ROW 

WITH A SUM OF TEST2 

0645 

1071 


TAD 

SUMP 

0 646 

301 3 


DCA 

XR4 

0 647 

1026 


TAD 

M 7 6 

0 650 

30 62 


DCA 

C0UNT4 

0651 

1 41 3 

SCAN0 4, 

TAO 

I XR4 

0652 

1050 


TAD 

TEST2 

0 653 

7640 


SZA 

CLA 

0654 

5360 


JMP 

DON E04 

0655 

1011 


TAD 

XR2 

0656 

70 41 


CIA 


0 657 

1013 


TAD 

XR4 v 

0 660 

7650 


SNA 

CLA 

0 661 

5360 


JMP 

DONE04 


ROW WITH SUM OF TEST1 


/FIND THE BLANK SQUARE Ml ON ROW WITH SUM=TEST2 


0 662 

1033 

TAD 

P 76 

0663 

1 0 62 

TAD 

COUNT4 

0 664 

710 6 

CLL 

RTL 

0 665 

10 72 

TAD 

RO WP 

0666 

301 4 

DCA 

XR5 
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0667 

1014 

TAD 

XR5 

0 670 

3015 

DCA 

XR6 

0671 

1022 

TAD 

M4 

0672 

3063 

DCA 

C0UNT5 

0673 

1 414 

SCAN 05* TAD 

I XR5 

0674 

7041 

CIA 


0675 

1052 

TAD 

Ml 

0676 

7 640 

SZA 

CLA 

0677 

5356 

JMP 

DONE05 

0700 

1051 

TAD 

TEST3 

0701 

7740 

SMA 

SZA CLA 

0702 

5507 

JMP 

I RETRN2 


/FIND ANY BLANK SQUARE M2 ON ROW WITH SUM=TEST2 


0703 

0704 


1022 
30 64 


TAD M4 
DCA COUNT6 


0705 

1415 

SCAN06* 

TAD 

I XR6 

0 70 6 

3053 


DCA 

M2 

070 7 

1 453 


TAD 

I M2 

0710 

■ 7640 


SZA 

CLA 

071 1 

5354 


JMP 

DONE0 6 



/FIND A 

ROW 

WHOSE : 

0712 

1071 


TAD 

SUMP 

0713 

301 6 


DCA 

XR7 

0714 

1026 


TAD 

M7 6 

0715 

3065 


DCA 

COUNT7 

0716 

1 41 6 

SCAN07* 

TAD 

I XR7 

071 7 

1051 


TAD 

TEST3 

0720 

7 640 


SZA 

CLA 

0721 

5352 


JMP 

DONE0 7 



/TEST IF SAME ROW j 

0722 

1016 


TAD 

XR7 

0723 

7041 


CIA 


0724 

1011 


TAD 

XR2 

0725 

7650 


SNA 

CLA 

0726 

5352: 


JMP 

DON E0 7 

0727 

1016 


TAD 

XR7 

0730 

7041 


CIA 


0731 

1013 


TAD 

XR4 

0732 

7650 


SNA 

CLA 

0733 

5352 


JMP 

DONE0 7 


= TEST3 


/FIND THE BLANK SQUARE M2 ON THE ROW WITH SUM = TEST3 


0734 

1033 

TAD 

P 76 

0735 

1065 

TAD 

COUNT7 

0736 

7106 

CLL 

RTL 

0737 

1072 

TAD 

ROWP 
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6740 

3017 


DCA 

XR8 

0741 

1022 


TAD 

M4 

6742 

30 66 


DCA 

COUNTS 

0743 

1 41 7 

SCAN08* 

TAD 

I XR8 

0744 

7041 


CIA 


0745 

1053 


TAD 

M2 

0746 

7650 


SNA 

CLA 

0747 

5510 


JMP 

I RETRN3 



/LOOP ENDS *** 

0750 

2066 

DONE08* 

ISZ 

C0UNT8 

0751 

5343 


JMP 

SCAN08 

0752 

2065 

DONE07* 

ISZ 

COUNT7 

0753 

5316 


JMP 

SCAN07 

0754 

2064 

DONE06* 

ISZ 

C0UNT6 

0755 

530 5 


JMP 

SCAN06 

0756 

2063 

DONE05* 

ISZ 

COUNTS 

0757 

. 5273 


JMP 

SCAN05 

0760 

2062 

DONE04* 

ISZ 

C0UNT4 

0761 

5251 


JMP 

SCAN04 

07 62 

2061 

DON £03* 

ISZ 

COUNT3 

0763 

5235 


JMP 

SCAN03 

0764 

2060 

DONE02* 

ISZ 

C0UNT2 

0765 

521 6 


JMP 

SCAN02 

0766 

2057 

DONE01* 

ISZ 

COUNT1 

0767 

5200 


JMP 

SCAN01 

0770 

5377 


JMP 

ENDPAGE 



*777 



0777 

3052 

ENDPAGE* 

DCA 

Ml 

1000 

3053 


DCA 

M2 

1001 

5220 


JMP 

RTURN 


/RETURNS FROM STRAT *** 

/WIN OR LOSE - Ml A ROW SUBSCRPT *** 


1062 

1033 

RTRN01* TAD 

P7 6 

1003 

10 60 

TAD 

C0UNT2 

1004 

7106 

DLL 

RTL 

1005 

1072 

TAD 

ROWP 

1006 

7001 

I AC 


1007 

3052 

DCA 

Ml 
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1010 

3053 


DCA 

M2 

1011 

5220 


JMP 

RTURN 

1012 

7300 

RTRN02» 

CLA 

CLL 

101 3 

3053 


DCA 

M2 

1014 

1067 

RTRN03* 

TAD 

MOVEP 

101 5 

7041 


CIA 


101 6 

1052 


TAD 

Ml 

1017 

3052 


DCA 

Ml 

1020 

1623 

RTURNj 

TAD 

1 STRTPT 

1021 

3044 


DCA 

SAVE 

1022 

5444 


JMP 

I SAVE 

1023 

0537 

STRTPT* 

STRTG 
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PAUSE 

/SUBROUTINE BOARD *** PRINT-OUT OF BOARD 


1024 

0000 

CUBE* 

0 


1025 

1035 


TAD 

LF 

1026 

4504 


PRINTC 

1027 

1022 


TAD 

M4 

1030 

3057 


DCA 

COUNT1 

1031 

7201 


CL A 

I AC 

1032 

30 42 


DCA 

PLANE 

1033 

4475 

PLNLOP* 

JMS 

I MESAGE 

1034 

30 5 7 


TEXT1 3 

1035 

1022 


TAD 

M4 

1036 

30 60 


DCA 

COUNT2 

1037 

7281 


CLA 

I AC 

1040 

30 40 


DCA 

ROW 

1041 

4475 

ROWLOP* 

JMS 

I MESAGE 

10 42 

3072 


TEXT14 

1043 

1022 


TAD 

M4 

1044 

3061 


DCA 

C0UNT3 

1045 

7201 


CLA 

I AC 

1046 

3041 


DCA 

COLUMN 

1047 

4477 

COLOOP.* 

JMS 

I CODE 

10 50 

1067 


TAD 

MOVEP 

1051 

3044 


DCA 

SAVE 

10 52 

1 444 


TAD 

I SAVE 

1053 

7450 


SNA 


1054 

5264 


JMP 

PRTSPC 

1055 

7510 


SPA 


1056 

5304 


JMP 

STAR 

1057 

1023 


TAD 

MS 

10 60 

7650 


SNA 

CLA 

1061 

1 30 7 


TAD 

XCDE 

10 62 

1310 


TAD 

OCODE 

1063 

7410 


SKP 


1064 

1036 

PRTSPC* 

TAD 

SPACE 

1065 

4504 


PRINTC 

10 66 

4475 


JMS 

I MESAGE 

1067 

30 7 4 


TEXT1 5 

1070 

2041 


ISZ 

COLUMN 

1071 

20 61 


ISZ 

COUNT3 

1072 

5247 


JMP 

COLOOP 

1073 

4475 


JMS 

I MESAGE 

1074 

3057 


TEXT1 3 

1075 

20 40 


I SZ 

ROW 

1076 

20 60 


ISZ 

C0UNT2 

1077 

5241 


JMP 

ROWLOP 

1100 

20 42 


ISZ 

PLANE 

1101 

2057 


ISZ 

COUNT1 

1 102 

5233 


JMP 

PLNLOP 
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1 103 

5624 


JMP 

1 CUBE 

1104 

7200 

STAR, 

CLA 


1105 

1 31 1 


TAD 

CSTAR 

1106 

5265 


JMP 

PRTSPC+1 

1107 

001 1 

XCDE, 

1 1 


1110 

031 7 

OCODE, 

31 7 


1111 

0252 

CSTAR, 

252 




/MESSAGE PRINT OUT ** 



*1200 



1200 

0000 

PRNTXT, 

0 


1201 

.7240 


CLA 

CMA 

1202 

1 600 


TAD 

I PRNTXT 

1203 

3010 


DCA 

10 

1204 

2200 


ISZ 

PRNTXT 

1205 

1 410 


TAD 

I 10 

1206 

321 7 


DCA 

MSRGHT 

120 7 

121 7 


TAD 

MSRGHT 

1210 

7012 


RTR 


121 1 

7012 


RTR 


1212 

7012 


RTR 


1213 

4220 


JMS 

TYPECH 

121 4 

121 7 


TAD 

MSRGHT 

121 5 

4220 


JMS 

TYPECH 

1216 

5205 


JMP 

PRNTXT+5 

1217 

0000 

MSRGHT, 

0 


1220 

0000 

TYPECH, 

0 


1221 

0247 


AND 

MASK 77 

1222 

7 450 


SNA 


1223 

5600 


JMP 

I PRNTXT 

1224 

1250 


TAD 

M 40 

1225 

7500 


SMA 


1226 

5231 


JMF 

• + 3 

1227 

1251 


TAD 

C340 

1230 

5244 


JMP 

MTP 

1231 

1021 


TAD 

MINUS3 

1232 

7 440 


SZA 


1233 

5236 


JMP 

• + 3 

1234 

1035 


TAD 

LF 

1235 

5244 


JMP 

MTP 

1236 

1252 


TAD 

XM2 

1237 

7440 


SZA 


1240 

5243 


JMP 

• + 3 

1241 

1246 


TAD 

CR 

1242 

5244 


JMP 

MTP 

1243 

1253 


TAD 

C245 

1244 

4504 

MTP, 

PRINTC 

1245 

5620 


JMP 

I TYPECH 
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1246 

021 5 

CR* 

21 5 

1247 

0077 

MA SK 7 7 * 

77 

1250 

7740 

M40* 

-40 

1251 

0340 

C340* 

340 

1252 

7776 

XM2* 

-2 

1253 

0245 

C245* 

245 



/SUBROUTINE YESNO *** 

1254 

0000 

XYESNO* 

0 

1255 

4503 


REA DC 

1256 

1 305 


TAD MYES 

1257 

7 450 


SNA 

1260 

5276 


JMP YES 

1261 

1 306 


TAD MNO 

1262 

7650 


SNA CLA 

1263 

5277 


JMP NO 

1264 

4503 


REA DC 

1265 

1031 


TAD MCR 

1266 

7640 


SZA CLA 

1267 

5264 


JMP .-3 

1270 

4475 


JMS I MESAGE 

1271 

.3036 


TEXT12 

1272 

1254 


TAD XYESNO 

1273 

1021 


TAD MINUS3 

1274 

3254 


DCA XYESNO 

1275 

5654 


JMP I XYESNO 

1276 

2254 

YES* 

ISZ XYESNO 

1277 

7200 

NO# 

CLA 

1 300 

4503 


REA DC 

1301 

1031 


TAD MCR 

1302 

7640 


SZA CLA 

1 303 

5300 


JMP NO+1 

1 304 

5654 


JMP I XYESNO 

1 305 

7447 

HYES* 

-331 

1 306 

0013 

MNO* 

331-316 

1 307 

0000 

XWNROW* 

0 

1 310 

1022 


TAD M4 

1 31 1 

3057 


DCA COUNT1 

1 312 

1 452 

WINRW* 

TAD I Ml 

1 31 3 

3044 


DCA SAVE 

1 31 4 

7240 


CLA CMA 

1 31 5 

3444 


DCA I SA VE 

1 31 6 

1067 


TAD MOVEP 

1 31 7 

7041 


CIA 

1 320 

1044 


TAD SAVE 

1 321 

4476 


JMS i CONVRT 

1 322 

1036 


TAD SPACE 

1 323 

4504 


PRINTC 

1 324 

20 52 


ISZ Ml 

1 325 

2057 


ISZ COUNT1 

1 326 

5312 


JMP WINRW 
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132 7 570 7 JMP I XWNROW 

MQV2=» 

«*• -1 

*.+100 

SIM=. 

*.+114 
WAiTL ST= * 

* 

DECIMAL 


/WAIT LIST: 


1 544 

0026 

1 545 

0053 

1 546 

0027 

1547 

0052 

1 550 

0032 

1551 

00 47 

1 552 

0033 

1 553 

0046 

1554 

000 1 

1 555 

0 1 00 

1 556 

0015 

1 557 

00 64 

1 560 

0004 

1 561 

0C7 5 

1 562 

0020 

1 563 

00 61 

1 564 

0026 

1 565 

0053 

1566 

002 7 

1 567 

00 52 


22; 43; 23; 42; 26; 39; 27; 38; 


l; 64 



13; 52; as 61; 16; 49; 22; 43; 23; 42 


PAUSE 


ROLL ST =. 


/ROW ARRAY: 


1570 1355 

1 571 1 402 

1572 1427 

1573 1330 

1574 1356 

157 5 1 401 

1576 1424 


22+M; 43+M; 64+M; 1+M 
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4+M 


1 577 

1 333 

23+M; 

1 600 

1 361 


I 601 

1 376 


1 602 

1 413 


1 60 3 

1 344 

2 6+M J 

1 60 4 

1 362 


1 60 5 

1375 


1 606 

1 410 


1 60 7 

1 347 

27+Mi 

1 610 

1 355 


1 61 1 

1 401 


1 612 

1 425 


1 61 3 

1 331 

22 +Mi 

1 61 4 

1 356 


1 61 5 

1 402 


1 61 6 

1 42 6 


1 61 7 

1 332 

2 3+Mi 

1 620 

1 356 


1 621 

1 375 


1 622 

1 41 4 


1 623 

1 337 

2 3+Mi 

1624 

1 362 


1 625 

1 401 


1 626 

1 420 


1 62? 

1 343 

27+Mi 

1 630 

1 361 


1 631 

1 375 


1632 

1 41 1 


1 633 

1345 

26+Mi 

1 634 

1 362 


1 635 

1 376 


1 636 

1 412 


1 637 

1 346 

27+Mi 

1 640 

1 355 


1 641 

1376 


1 642 

141 7 


1 643 

1 334 

22+Mi 

1 644 

1 361 


1 645 

1 402 


1 646 

1 423 


1 647 

1 340 

26+Mi 

1 650 

1355 


1 651 

1 375 


1 652 

1 41 5 


1 653 

1 335 

22+Mi 

1 654 

1 356 


1 655 

1 376 


1 656 

1 41 6 


1 657 

1 336 

2 3+Mi 

1 660 

1 361 


1 661 

1 401 


1 662 

1 421 


1 663 

1 341 

26+Mi 

1 664 

1 362 



42+Mi 61+Ki 

39+Mi 52+Ki 13+M 

38 + Mi 49 + Ki 16+K 
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0540 
7 7 40 
0000 

T EX T12» 4543 
4320 
1 40 5 
0123 
0 540 
0116 
2327 
0 522 
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3046 

4047 

3047 

3105 

30 50 

2347 

3051 

401 7 

3052 

2240 

3053 

4716 

3054 

1747 

3055 

5645 

3056 

4300 

3057 

4543 

30 60 

5656 

3061 

5656 

30 62 

5656 

3063 

5656 

30 64 

5656 

3065 

5656 

3066 

5656 

30 67 

5656 

3070 

5645 

30 71 

4308 


40 47 
3105 
2347 
401 7 
2240 
4716 
1 747 
5645 
4300 

TEXT13* 4543 

5656 

5656 

5656 

5656 

5656 

5656 

5656 

5656 

5645 

4300 


3872 

5640 

3073 

0000 

30 7 4 

4056 

3075 

4000 

3076 

4543 

387 7 

4324 

3100 

1001 

3101 

1 61 3 

3102 

4031 

310 3 

1 725 

3104 

400 6 

3105 

1 722 

3106 

4001 

3107 

1 640 

3110 

051 6 

31 1 1 

1217 

31 12 

3101 

31 1 3 

021 4 

31 1 4 

0540 

31 1 5 

0701 

31 1 6 

1505 

31 1 7 

5645 

3120 

4343 

3121 

4343 

3122 

4343 

3123 

4343 

3124 

4343 

3125 

4343 

3126 

4343 

3127 

4343 


TEXT1 At 5640 

0000 

TEXT1 5> 4056 

4000 

TEXT1 6» 4543 
4324 
1001 
1613 
4031 
1 725 
4006 
1 722 

4001 
1 640 
051 6 
121 7 
3101 
021 4 
0540 
0701 
1 50 5 
5645 
4343 
4343 
4343 
4343 
4343 
4343 
4343 
4343 









-J 2: 


3130 0000 0000 

i 

3131 4543 TEXT17, 

3132 4302 4302 

3133 1 701 1 701 

3134 2204 2204 

3135 4020 4020 

3136 2211 2211 

3137 1624 1624 

3140 1 725 1 725 

3141 2440 2440 

31 42 7 740 7 740 

3143 0000 0000 


board 0100 

CODE 0077 
COLOOP 1047 
COLUMN 0041 
COMMA 0037 
COMOVE 0340 
CONVRT 0076 
COUNT 1 0057 
C0UNT2 0060 
C0UNT3 0061 
C0UNT4 0062 
COUNTS 0063 
C0UNT6 0064 
COUNT7 0065 
COUNTS 0066 


1246 


CSTAR 

1 1 11 

CUBE 

1024 

C245 

1253 

C340 

1251 

decide 

0303 

DONE01 

0766 

DONE 02 

0764 

DON £0 3 

0762 

DON £0 4 

0760 

DONE05 

0756 

DON£06 

0754 

DON£07 

0752 

OONE0S 

0 750 

END GAM 

0105 

endpag 

0777 

flag 

0045 


GETMV 0235 
1LLEGL 0352 


K261 0034 

LASTMV 0443 
0035 
1 32 7 


4543 
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MARROW 
MASK 7 7 
MCR 

mesage 
minusi 

M1NUS3 
MNCODE 
MNO 
MOVE 
movep 
mscode 
msroht 
MTP 
MYES 
Ml 
Ml 3 
M2 
M20 
M2 60 
M3 
M4 
M40 
M5 
M64 
M7 6 
NEXT 
NO 

OCODE 

PLANE 

PLNLOP 

PRINTO 

PRNTXT 

PRTSPC 

P5 

P76 

REAOC 

RETRN1 

RETRN2 

RETRN 3 

ROW 

ROWLOP 


enuLST 


0441 
1247 
0031 
0075 
0020 
0021 
0440 
1 306 
1330 
0067 
0 442 
121 7 
1244 
1305 
0052 
0025 
0053 
0024 
0030 
0054 
0022 
1250 
0623 
0027 
0026 
0043 
1277 
1110 
0042 
1033 
450 4 
1200 
1064 
0032 
0033 
450 3 
0106 
0107 
0110 
0040 
1041 
1 S70 


ROWP 6072 
RTRN01 1002 
RTRN02 1012 
RTRN03 1014 
RTURN 1020 
SAVE 0044 


SC AN01 0 600 
SCAN02 0 616 
SCAN03 0635 
SCAN04 0651 
SCAN05 0673 
SCAN06 0705 









SCAN07 0716 
SCAN08 0743 
SETUP 0215 
SITFND 0325 
SPACE 0036 


STAR 

1 104 

STPR06 0175 

STRAT 

0101 

STRT6 

0537 

STRTP7 

1023 

SUM 

1 430 

SUMLOP 

0546 

SUMF 

0071 

TEST 

2250 

TESTAC 

4502 

TESTP 

00 73 

TEST1 

0047 

TEST2 

0050 

TEST3 

0051 

TEXT01 

231 7 

TEXT03 

2367 

TEXT0 4 

2704 

TEXT05 

2720 

TEXT06 

2731 

TEXT0 7 

2755 

TEXT08 

2763 

TEXT09 

3000 

TEXT1 0 

3010 

TEXT1 1 

301 7 

TEXT12 

3036 

TEXT1 3 

3057 

TEXT1 4 

3072 

TEXT1 5 

3074 

TEXT1 6 

3076 

TEXTl 7 

3131 

TRYAGN 

0400 

TYPECK 

1220 

WAITCT 

0056 

WAITL 

0070 

WAITLS 

1544 

WAITP 

0055 

WELOSE 

0360 

WEWON 

0355 

WINROW 

0365 

WINRW 

1 312 

XCDE 

1 107 

XCNVRT 

0471 

XCODE 

0456 

XM2 

1252 

XPRNTC 

0 40 6 

XREAOC 

041 4 

XRTRN 

0454 

XR1 

0010 

XR2 

001 1 









XR3 

0012 

XR4 

0013 

XR5 

0014 

XR6 

0015 

XR7 

001 6 

XR8 

0017 

XSUM 

0046 

XTSTAC 

0444 

XWNROW 

1 307 

XYESNO 

1254 

YES 

1276 

YESNO 

0074 


46 










